[1] "/home/rstudio/workshop-r-2022"R Project
Have you ever click this button?
Why Do We Need to Use R Project?
Path Manager
Package Manager
Maximize Data-ink Ratio
Maximize Data-ink Ratio
- Omit axis label. The title of the plot can tell them
- Omit legend label. The label “gender” does not add any information
- Omit background grids
More Readability: Order Bar Plot
accident_bike |>
ggplot(aes(x = fct_rev(type_person),
fill = fct_rev(gender))) +
geom_bar(position = "dodge") +
coord_flip() +
labs(x = NULL, y = NULL, fill = NULL) +
theme_minimal() +
theme(panel.grid.minor = element_blank(),
panel.grid.major.y = element_blank(),
legend.position = c(0.9, 0.1)) +
guides(fill = guide_legend(reverse = TRUE))
- Coord flipped. Reorder the factor variables
- Put legends inside the plot to make the plot bigger
More Readability: Increase Font Size
accident_bike |>
ggplot(aes(x = fct_rev(type_person),
fill = fct_rev(gender))) +
geom_bar(position = "dodge") +
coord_flip() +
labs(x = NULL, y = NULL, fill = NULL) +
theme_minimal() +
theme(panel.grid.minor = element_blank(),
panel.grid.major.y = element_blank(),
legend.position = c(0.9, 0.1),
axis.text.x = element_text(size = 20),
axis.text.y = element_text(size = 25),
legend.text = element_text(size = 20)) +
guides(fill = guide_legend(reverse = TRUE))
R Color Brewer’s Palettes
R Color Brewer’s Palettes
accident_bike |>
ggplot(aes(x = fct_rev(type_person),
fill = fct_rev(gender))) +
geom_bar(position = "dodge") +
coord_flip() +
labs(x = NULL, y = NULL, fill = NULL) +
scale_fill_brewer(palette = "Accent") +
theme_minimal() +
theme(panel.grid.minor = element_blank(),
panel.grid.major.y = element_blank(),
legend.position = c(0.9, 0.1),
axis.text.x = element_text(size = 20),
axis.text.y = element_text(size = 25),
legend.text = element_text(size = 20)) +
guides(fill = guide_legend(reverse = TRUE))
Color-Safe Pallette: Okabe-Ito Palette
accident_bike |>
ggplot(aes(x = fct_rev(type_person),
fill = fct_rev(gender))) +
geom_bar(position = "dodge") +
coord_flip() +
labs(x = NULL, y = NULL, fill = NULL) +
see::scale_fill_okabeito() +
theme_minimal() +
theme(panel.grid.minor = element_blank(),
panel.grid.major.y = element_blank(),
legend.position = c(0.9, 0.1),
axis.text.x = element_text(size = 20),
axis.text.y = element_text(size = 25),
legend.text = element_text(size = 20)) +
guides(fill = guide_legend(reverse = TRUE))
Custom Palette
accident_bike |>
ggplot(aes(x = fct_rev(type_person),
fill = fct_rev(gender))) +
geom_bar(position = "dodge") +
coord_flip() +
labs(x = NULL, y = NULL, fill = NULL) +
scale_fill_manual(values = c("#E7B800", "#00AFBB")) +
theme_minimal() +
theme(panel.grid.minor = element_blank(),
panel.grid.major.y = element_blank(),
legend.position = c(0.9, 0.1),
axis.text.x = element_text(size = 20),
axis.text.y = element_text(size = 25),
legend.text = element_text(size = 20)) +
guides(fill = guide_legend(reverse = TRUE))
Fonts
Goolge Fonts
- You can download well-designed free fonts
- My recommendation: Condensed fonts
Roboto Condensed, Fira Sans Condensed, IBM Plex Sans Condensed,…
showtext
- Your collaborators need to download the fonts
font_add_google()andshowtext_auto()automatically solve the problem
Roboto Condensed
library(showtext)
font_base <- "Roboto Condensed"
font_light <- "Roboto Condensed Light 300"
font_add_google(font_base, font_light)
showtext_auto()
accident_bike |>
ggplot(aes(x = fct_rev(type_person), fill = fct_rev(gender))) +
geom_bar(position = "dodge") +
coord_flip() +
labs(x = NULL, y = NULL, fill = NULL) +
see::scale_fill_okabeito() +
theme_minimal() +
theme(panel.grid.minor = element_blank(),
panel.grid.major.y = element_blank(),
legend.position = c(0.9, 0.1),
axis.text.x = element_text(size = 20, family = font_light),
axis.text.y = element_text(size = 25, family = font_base),
legend.text = element_text(size = 20, family = font_light)) +
guides(fill = guide_legend(reverse = TRUE))
Third-party Themes: hrbrthemes
accident_bike |>
ggplot(aes(x = fct_rev(type_person),
fill = fct_rev(gender))) +
geom_bar(position = "dodge") +
coord_flip() +
labs(x = NULL, y = NULL, fill = NULL) +
hrbrthemes::scale_fill_ipsum() +
hrbrthemes::theme_ipsum_rc() +
theme(panel.grid.minor = element_blank(),
panel.grid.major.y = element_blank(),
legend.position = c(0.9, 0.1),
axis.text.x = element_text(size = 20),
axis.text.y = element_text(size = 25),
legend.text = element_text(size = 20)) +
guides(fill = guide_legend(reverse = TRUE))
Third-party Themes:: ggpubr & ggsci Plaette
p <- accident_bike |>
ggplot(aes(x = fct_rev(type_person),
fill = fct_rev(gender))) +
geom_bar(position = "dodge") +
coord_flip() +
labs(x = NULL, y = NULL, fill = NULL) +
ggpubr::theme_pubr() +
theme(panel.grid.minor = element_blank(),
panel.grid.major.y = element_blank(),
legend.position = c(0.9, 0.1),
axis.text.x = element_text(size = 20),
axis.text.y = element_text(size = 25),
legend.text = element_text(size = 20)) +
guides(fill = guide_legend(reverse = TRUE))
ggpubr::set_palette(p, "jco") # choose one of ggsci palette
Patchwork
kableExtra: Example
# A tibble: 6 × 9
# Groups: weather [6]
weather n_Men_2019 n_Men_2…¹ n_Men…² n_Men…³ n_Wom…⁴ n_Wom…⁵ n_Wom…⁶ n_Wom…⁷
<fct> <int> <int> <int> <int> <int> <int> <int> <int>
1 sunny 24399 14969 19208 19420 11971 6958 9417 9298
2 cloud 1159 1190 1325 1633 555 554 630 774
3 soft rain 2126 1198 1281 1408 1068 542 605 716
4 hard rain 386 202 386 352 222 96 210 179
5 snow 2 2 124 5 NA NA 38 1
6 hail 11 5 6 4 3 3 1 2
# … with abbreviated variable names ¹n_Men_2020, ²n_Men_2021, ³n_Men_2022,
# ⁴n_Women_2019, ⁵n_Women_2020, ⁶n_Women_2021, ⁷n_Women_2022library(kableExtra)
options(knitr.kable.NA = '')
ktb <- tab |>
kbl(format = "latex", booktabs = TRUE,
col.names = c(" ", 2019:2022, 2019:2022)) |>
add_header_above(c(" ", "Men" = 4, "Women" = 4)) |>
pack_rows(index = c("Good" = 2, "Bad" = 4))
ktb |>
save_kable(here("output/tex/kableextra/tb_accident_bike.tex"))
booktabs = TRUEforbooktabspackage in LaTeX- You can specify the column names by
col.names - You can pack columns and rows by
add_header_above()andpack_rows() save_kable()saves in a tex file if the file name ends with “.tex”
modelsummary: Export to \(\LaTeX\)
cm <- c(
"type_personpassenger" = "Passenger",
"type_personpedestrian" = "Pedestrian",
"positive_alcoholTRUE" = "Positive Alcohol"
)
gm <- tibble(
raw = c("nobs", "FE: age_c", "FE: gender", "FE: type_vehicle", "FE: weather"),
clean = c("Observations", "FE: Age Group", "FE: Gender", "FE: Type of Vehicle", "FE: Weather"),
fmt = c(0, 0, 0, 0, 0)
)
modelsummary(models,
output = "latex_tabular",
stars = c("+" = .1, "*" = .05, "**" = .01),
coef_map = cm,
gof_map = gm) |>
add_header_above(c(" ", "Hospitalization" = 3, "Died within 24 hours" = 3)) |>
row_spec(7, hline_after = T) |>
save_kable(here("output/tex/modelsummary/reg_accident_bike.tex"))
output = "latex_tabular" produces a tex file not containing table tag